* callint.c (Fcall_interactively): Don't use index var as event count.

diff --git a/src/ChangeLog b/src/ChangeLog
index d6d09cc89dba3e72099c0e2ec3f46aae88d60370..d10672e9d7e69c13ce589a72c18d7c8e7df48991 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-06-14  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * callint.c (Fcall_interactively): Don't use index var as event count.
+
        * vm-limit.c (check_memory_limits): Fix incorrect extern function decls.
        * mem-limits.h (SIZE): Remove; no longer used.
 

diff --git a/src/callint.c b/src/callint.c
index 2cc3a7cb537001ef2f9cfcebc13b1d5fa9ab542e..29bb7ccc409108d062d78b75043f02403bd5806c 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -339,7 +339,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
     {
       Lisp_Object input;
       Lisp_Object funval = Findirect_function (function, Qt);
-      i = num_input_events;
+      size_t events = num_input_events;
       input = specs;
       /* Compute the arg values using the user's expression.  */
       GCPRO2 (input, filter_specs);
@@ -347,7 +347,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
                     CONSP (funval) && EQ (Qclosure, XCAR (funval))
                     ? Qt : Qnil);
       UNGCPRO;
-      if (i != num_input_events || !NILP (record_flag))
+      if (events != num_input_events || !NILP (record_flag))
        {
          /* We should record this command on the command history.  */
          Lisp_Object values;